home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / turbobasedemo / beispiele / makro / adressen.rexx next >
OS/2 REXX Batch file  |  1996-09-29  |  589b  |  36 lines
  1.  
  2.  
  3. OPTIONS RESULTS
  4. OPTIONS FAILAT 21
  5.  
  6. ADDRESS TBASE
  7.  
  8. PROJECT Makro
  9.  
  10. DATABASE Adressen QUERY "Abfrage-Test" NEW VERBOSE
  11. /* 'WHERE Nachname#"A*"' */
  12. /* SORT Nachname */
  13.  
  14. FIRST
  15. do while (RC==0)
  16.   COPY STEM data FIELDS Nachname Vorname 'Straße' PLZ Ort
  17.   if rc~=0 then break
  18.  
  19.   say data.Nachname data.Vorname data.Straße data.PLZ Data.Ort
  20.  
  21.   /* auf Abbruch testen */
  22.   QUERY "Abfrage-Test"
  23.   if rc==10 then do
  24.     CLOSE
  25.     say "***Abfrage abgebrochen"
  26.     exit 10
  27.   end
  28.  
  29.   NEXT
  30. end
  31.  
  32. /* das war's -- nun noch die Abfrage schließen, so daß auch das
  33.    Status-Fenster geschlossen wird! */
  34. CLOSE
  35.  
  36.